From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 30 Apr 2001 14:34:54 +0000 (+0000)
Subject: (xlwmenu_window_p): New function.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~40514
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=55223e3e906bb3eaccdfe451f0ec6a3718b6c8b5;p=emacs.git

(xlwmenu_window_p): New function.
---

diff --git a/lwlib/xlwmenu.c b/lwlib/xlwmenu.c
index e29060b3784..8c2d5c8b5f1 100644
--- a/lwlib/xlwmenu.c
+++ b/lwlib/xlwmenu.c
@@ -1195,6 +1195,23 @@ make_windows_if_needed (mw, n)
   }
 }
 
+/* Value is non-zero if WINDOW is part of menu bar widget W.  */
+
+int
+xlwmenu_window_p (w, window)
+     Widget w;
+     Window window;
+{
+  XlwMenuWidget mw = (XlwMenuWidget) w;
+  int i;
+  
+  for (i = 0; i < mw->menu.windows_length; ++i)
+    if (window == mw->menu.windows[i].window)
+      break;
+
+  return i < mw->menu.windows_length;
+}
+
 /* Make the window fit in the screen */
 static void
 fit_to_screen (mw, ws, previous_ws, horizontal_p)